$PBExportHeader$uo_bandas_horarias.sru
$PBExportComments$bandas Horarias de la comision
forward
global type uo_bandas_horarias from uo_dw
end type
end forward

global type uo_bandas_horarias from uo_dw
end type
global uo_bandas_horarias uo_bandas_horarias

on uo_bandas_horarias.create
end on

on uo_bandas_horarias.destroy
end on

event updatestart;call super::updatestart;Long ultimo_serial
Integer i

Select max(asignacion)
  INTO :ultimo_serial
FROM dba.sga_asignaciones
USING SQLCA;
If IsNull(Ultimo_serial) or ultimo_serial <= 0 Then Ultimo_serial = 0

For i = 1 to this.RowCount()
	if this.GetItemStatus(i,0,Primary!) = NewModified! and this.Object.asignacion[i] <= 0 Then
		ultimo_serial = ultimo_serial + 1
		this.SetItem(i,'asignacion',ultimo_serial)
	End If
Next

end event

event itemchanged;call super::itemchanged;if ancestorReturnValue <> 0 Then Return AncestorReturnValue
Long  ll_valor
if dwo.name = 'edificio_aula' Then
	If Not IsNull(data) Then
//		DatawindowChild ldc
//		Integer			fila, rtn
//		rtn = this.GetChild('edificio_aula',ldc)
//		fila = ldc.GetRow()
//		if fila > 0 Then
//			this.SetItem(row,'edificio',ldc.GetItemNumber(fila,'edificio'))
//			this.SetItem(row,'aula',ldc.GetItemNumber(fila,'aula'))
//		End If
		String			ls_valor
		ls_valor = Left(data,Pos(data,'-',1) -1 )
		this.SetItem(row,'edificio',Long(ls_valor))
		ls_valor = Right(data,len(data) - Pos(data,'-',1))
		this.SetItem(row,'aula',Long(ls_valor))
Else
		// limpio los campos de edificio y aula
		SetNull(ll_valor)
		this.SetItem(row,'edificio',ll_valor)
		this.SetItem(row,'aula',ll_valor)
	End If
End If

Return 0
end event

